home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 April: Mac OS SDK / Dev.CD Apr 96 SDK / Dev.CD Apr 96 SDK1.toast / Development Kits (Disc 1) / OpenDoc Development Framework / ODFDev / MPW⁄ToolServer Additions / UserStartup•ODF next >
Encoding:
Text File  |  1995-11-08  |  1.3 KB  |  53 lines  |  [TEXT/MPS ]
  1. #========================================================================================
  2. #
  3. #    File:                UserStartup•ODF
  4. #    Release Version:    $ 1.0d10 $
  5. #
  6. #    Copyright:    © 1993, 1995 by Apple Computer, Inc., all rights reserved.
  7. #
  8. #========================================================================================
  9. # Drop this file in your MPW Folder
  10.  
  11. if ¬ {_UserStartup•ODF_}
  12. set _UserStartup•ODF_ 1
  13. export _UserStartup•ODF_
  14.  
  15. #    Set the location of the OpenDoc Parts Framework Folder
  16. # If the folder can't be found; automatically prompts user for it and
  17. # remember where the folder was found
  18.  
  19. if  ¬ "{ODF}" && "`Exists "{PrefsFolder}"ODF_Folder`" 
  20.     Set ODF     "`Catenate "{PrefsFolder}"ODF_Folder`"
  21. End
  22. if ¬ "`Exists "{PrefsFolder}"ODF_Folder`" || ¬ "`Exists "{ODF}"`"
  23.     Set exit 0
  24.     Set temp "{Boot}"
  25.     Loop
  26.         Set temp "`(GetFileName "{temp}" -q -d -m "Where is your ∂"ODF∂" folder?")≥dev:null`"
  27.         if "{temp}"!=""
  28.             Echo -n "{temp}" > "{PrefsFolder}"ODF_Folder
  29.             Set ODF "{temp}"
  30.         Else
  31.             exit
  32.         End
  33.         (set x "`Exists "{temp}Framewrk:"`") ≥dev:null
  34.         if  "{x}"==""
  35.             Alert ODF - The ∂"{temp}∂" folder does not contain ODF files.
  36.         else
  37.             break
  38.         end
  39.     End
  40.     set exit 1
  41. End
  42.  
  43. Set ODF "`Catenate "{PrefsFolder}"ODF_Folder`"
  44. Export ODF
  45.  
  46. For __Startup__i in `(Files "{ODF}Tools:Mac:Startups:"Startup≈ || Set Status 0) ≥ dev:null`
  47.     Execute "{__Startup__i}"
  48. End
  49. Unset __Startup__i
  50.  
  51. End
  52.  
  53.